home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Nordlicht Spiele / Nordlicht Spiele 27-07 (19xx)(Nordlicht)(DE)(PD).zip / Nordlicht Spiele 27-07 (19xx)(Nordlicht)(DE)(PD).adf / fight dojo 3.AMOS / fight dojo 3.amosSourceCode
AMOS Source Code  |  1978-01-25  |  7KB  |  147 lines

  1. Erase 1 : Erase 2 : Erase 3 : Erase 4 : Erase 5 : Erase 6 : Erase 7 : Erase 8
  2. Load "AMOS:music.abk" : Mvolume 34 : Music 1
  3. Load "AMOS:dodge.abk" : Unpack 6 To 0 : Erase 6
  4. Load "AMOS:dojo sprites.abk"
  5. Curs Off : Hide 
  6. Double Buffer 
  7. P1SCORE=0 : Locate 0,0 : Print P1SCORE
  8. P2SCORE=0 : Locate 36,0 : Print P2SCORE
  9. Channel 1 To Bob 1
  10. Bob 1,0,0,1
  11. X=25 : Y=130
  12. M$=" Let X=25 ; Let Y=130 ; Jump Begin ;"
  13. M$=M$+" Begin:     If X<45 Jump X ; Jump Movement ;"
  14. M$=M$+" Movement:  If J1=17 Jump Punch  ;" : Bob Clear 
  15. M$=M$+"            If J1=24 Jump Kick ;" : Bob Clear 
  16. M$=M$+"            If J1=8 Jump Right ;" : Bob Clear 
  17. M$=M$+"            If J1=4 Jump Left ;" : Bob Clear 
  18. M$=M$+"            If J1=18 Jump Down ;" : Bob Clear 
  19. M$=M$+"            If J1=25 Junp Fly ;" : Bob Clear 
  20. M$=M$+"            If J1=2 Jump A ;" : Bob Clear 
  21. M$=M$+"            If J1=1 Jump C ;" : Bob Clear 
  22. M$=M$+" Jump Begin                   ;"
  23. M$=M$+" Punch:Anim 1,(2,10) ; Move 0,0,5 ; Anim 1,(1,10) ; Move 0,0,5 ; Jump Stand ;"
  24. M$=M$+" Kick: Anim 1,(3,10) ; Move 0,0,5 ; Anim 1,(4,10) ; Move 0,0,5 ; Anim 1,(3,10) ; Move 0,0,5 ; Anim 1,(1,10) ; Move 0,0,15 ; Jump Stand ;"
  25. M$=M$+" Fly:  Anim 1,(14,10) ; Move 25,-25,25 ; Anim 1,(15,10) ; Move 25,25,25 ; Anim 0,(1,10) ; Move 0,0,15 ; Jump Stand ;"
  26. M$=M$+" A:    Anim 0,(12,10) ; Move 0,0,25 ; Jump Stand ;"
  27. M$=M$+" Right:Anim 0,(5,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Anim 0,(6,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Anim 0,(7,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Jump O ;"
  28. M$=M$+" O:    Anim 0,(8,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Anim 0,(9,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Anim 0,(10,10) ; Move 5,0,5 ; If J1=0 Jump Stand ; Anim 0,(11,10) ; Move 5,0,5 ; Jump Stand ;"
  29. M$=M$+" Left: Anim 0,(5,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Anim 0,(6,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Anim 0,(7,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Jump V ;"
  30. M$=M$+" V:    Anim 0,(8,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Anim 0,(9,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Anim 0,(10,10) ; Move -5,0,5 ; If J1=0 Jump Stand ; Anim 0,(11,10) ; Move -5,0,5 ; Jump Stand ;"
  31. M$=M$+" Down: Anim 1,(12,10) ; Move 0,0,5 ; Anim 1,(13,10) ; Move 0,0,5 ; Jump Stand ;"
  32. M$=M$+" C:    Anim 0,(14,10) ; Move 0,-25,25 ; Move 0,25,25 ; Jump Stand ;"
  33. M$=M$+" Stand:Anim 0,(1,7) ; Jump Begin ;"
  34. M$=M$+" X: Let X=45 ; Jump Begin ;"
  35. Amal 1,M$
  36. Amal On 1
  37. '
  38. Channel 2 To Bob 2
  39. Bob 2,0,0,19
  40. BX=215 : BY=130
  41. BM$="Let X=215 ; Let Y=130 ; Jump Begin ;"
  42. BM$=BM$+" Begin:           If X>200 Jump Y ; Jump Movement ;"
  43. BM$=BM$+" Movement:  If J0=17 Jump Punch  ;" : Bob Clear 
  44. BM$=BM$+"            If J0=20 Jump Kick ;" : Bob Clear 
  45. BM$=BM$+"            If J0=8 Jump Right ;" : Bob Clear 
  46. BM$=BM$+"            If J0=4 Jump Left ;" : Bob Clear 
  47. BM$=BM$+"            If J0=18 Jump Down ;" : Bob Clear 
  48. BM$=BM$+"            If J0=21 Junp Fly ;" : Bob Clear 
  49. BM$=BM$+"            If J0=2 Jump A ;" : Bob Clear 
  50. BM$=BM$+"            If J0=1 Jump C ;" : Bob Clear 
  51. BM$=BM$+" Jump Begin                   ;"
  52. BM$=BM$+" Punch:Anim 1,(2,10) ; Move 0,0,5 ; Anim 1,(1,10) ; Move 0,0,5 ; Jump Stand ;"
  53. BM$=BM$+" Kick: Anim 1,(21,10) ; Move 0,0,5 ; Anim 1,(22,10) ; Move 0,0,5 ; Anim 1,(21,10) ; Move 0,0,5 ; Anim 1,(19,10) ; Move 0,0,5 ; Jump Stand ;"
  54. BM$=BM$+" Fly:  Anim 1,(32,10) ; Move -25,-25,25 ; Anim 1,(33,10) ; Move -25,25,25 ; Anim 0,(19,10) ; Move 0,0,15 ; Jump Stand ;"
  55. BM$=BM$+" A:    Anim 0,(30,10) ; Move 0,0,25 ; Jump Stand ;"
  56. BM$=BM$+" Right:Anim 0,(23,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Anim 0,(24,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Anim 0,(25,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Jump O ;"
  57. BM$=BM$+" O:    Anim 0,(26,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Anim 0,(27,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Anim 0,(28,10) ; Move 5,0,5 ; If J0=0 Jump Stand ; Anim 0,(29,10) ; Move 5,0,5 ; Jump Stand ;"
  58. BM$=BM$+" Left: Anim 0,(23,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Anim 0,(24,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Anim 0,(25,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Jump V ;"
  59. BM$=BM$+" V:    Anim 0,(26,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Anim 0,(27,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Anim 0,(28,10) ; Move -5,0,5 ; If J0=0 Jump Stand ; Anim 0,(29,10) ; Move -5,0,5 ; Jump Stand ;"
  60. BM$=BM$+" Down: Anim 1,(30,10) ; Move 0,0,5 ; Anim 1,(31,10) ; Move 0,0,5 ; Jump Stand ;"
  61. BM$=BM$+" C:    Anim 0,(32,10) ; Move 0,-25,25 ; Move 0,25,25 ; Jump Stand ;"
  62. BM$=BM$+" Stand:Anim 0,(19,7) ; Jump Begin ;"
  63. BM$=BM$+" Y: Let X=200 ; Jump Begin ;"
  64. Amal 2,BM$
  65. Amal On 2
  66. Do 
  67.    Channel 3 To Bob 3
  68.    Bob 3,X Bob(2)+5,Y Bob(2),35
  69.    Amal 3,"Anim 0,(17,5)(18,5)"
  70.    If Bob Col(1) and 4=I Bob(1)
  71.       Amal On 3 : Wait 10 : Amal On 2 : Amal Off 3 : Bob Off 3 : Add P1SCORE,7 : Locate 0,0 : Print P1SCORE
  72.    End If 
  73.    If Bob Col(1) and 15=I Bob(1)
  74.       Amal On 3 : Wait 10 : Amal On 2 : Amal Off 3 : Bob Off 3 : Add P1SCORE,7 : Locate 0,0 : Print P1SCORE
  75.    End If 
  76.    If Bob Col(1) and 2=I Bob(1)
  77.       Amal On 3 : Wait 10 : Amal On 2 : Amal Off 3 : Bob Off 3 : Add P1SCORE,7 : Locate 0,0 : Print P1SCORE
  78.    End If 
  79.    If Bob Col(1) and 13=I Bob(1)
  80.       Amal On 3 : Wait 10 : Amal On 2 : Amal Off 3 : Bob Off 3 : Add P1SCORE,7 : Locate 0,0 : Print P1SCORE
  81.    End If 
  82.    Channel 4 To Bob 4
  83.    Bob 4,X Bob(1)+5,Y Bob(1),35
  84.    Amal 4,"Anim 0,(17,5)(18,5)"
  85.    If Bob Col(2) and 22=I Bob(2)
  86.       Amal On 4 : Wait 10 : Amal On 1 : Amal Off 4 : Bob Off 4 : Add P2SCORE,7 : Locate 36,0 : Print P2SCORE
  87.    End If 
  88.    If Bob Col(2) and 33=I Bob(2)
  89.       Amal On 4 : Wait 10 : Amal On 1 : Amal Off 4 : Bob Off 4 : Add P2SCORE,7 : Locate 36,0 : Print P2SCORE
  90.    End If 
  91.    If Bob Col(2) and 20=I Bob(2)
  92.       Amal On 4 : Wait 10 : Amal On 1 : Amal Off 4 : Bob Off 4 : Add P2SCORE,7 : Locate 36,0 : Print P2SCORE
  93.    End If 
  94.    If Bob Col(2) and 31=I Bob(2)
  95.       Amal On 4 : Wait 10 : Amal On 1 : Amal Off 4 : Bob Off 4 : Add P2SCORE,7 : Locate 36,0 : Print P2SCORE
  96.    End If 
  97.    Amal 5,"Anim 0,(16,5)"
  98.    Amal 6,"Anim 0,(34,5)"
  99.    If P1SCORE>100
  100.       Amal On 3
  101.       Locate 5,2 : Paper 1 : Print "PLAYER 1 IS THE VICTOR!!!!"
  102.       Amal Freeze 1 : Amal Freeze 2
  103.       Channel 5 To Bob 1
  104.       Amal On 5
  105.       If Fire(1)
  106.          Bob Off 
  107.          Load "AMOS:dojo title.abk" : Unpack 6 To 0 : Erase 6
  108.          Repeat : Until Fire(1)
  109.          Load "AMOS:dodge.abk" : Unpack 6 To 0 : Erase 6
  110.          Double Buffer 
  111.          P1SCORE=0 : Locate 0,0 : Print P1SCORE
  112.          P2SCORE=0 : Locate 36,0 : Print P1SCORE
  113.          Channel 1 To Bob 1
  114.          Bob 1,0,0,1
  115.          Amal 1,M$
  116.          Amal On 1
  117.          Channel 2 To Bob 2
  118.          Bob 2,0,0,19
  119.          Amal 2,BM$
  120.          Amal On 2
  121.       End If 
  122.    End If 
  123.    If P2SCORE>100
  124.       Amal On 4
  125.       Locate 5,2 : Paper 1 : Print "PLAYER 2 IS THE VICTOR!!!!"
  126.       Amal Freeze 1 : Amal Freeze 2
  127.       Channel 6 To Bob 2
  128.       Amal On 6
  129.       If Fire(0)
  130.          Bob Off 
  131.          Load "AMOS:dojo title.abk" : Unpack 6 To 0 : Erase 6
  132.          Repeat : Until Fire(1)
  133.          Load "AMOS:dodge.abk" : Unpack 6 To 0 : Erase 6
  134.          Double Buffer 
  135.          P1SCORE=0 : Locate 0,0 : Print P1SCORE
  136.          P2SCORE=0 : Locate 36,0 : Print P1SCORE
  137.          Channel 1 To Bob 1
  138.          Bob 1,0,0,1
  139.          Amal 1,M$
  140.          Amal On 1
  141.          Channel 2 To Bob 2
  142.          Bob 2,0,0,19
  143.          Amal 2,BM$
  144.          Amal On 2
  145.       End If 
  146.    End If 
  147. Loop